home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / J-Jim Butterfield / (n)j1.d64 / cont indexer 64 (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  773b  |  15 lines
  1. 10 PRINT"[147]CONTEXT INDEX64     JIM BUTTERFIELD"
  2. 30 J=40:D=3:INPUT"PRINTER";P$:IFP$="Y"ORP$="YES"THEND=4:J=80
  3. 40 J=(J-4)/2:POKE830,40-J:POKE831,40+J:OPEN2,D
  4. 100 INPUT "NAME OF WORD PROC FILE";F$:OPEN1,8,3,F$
  5. 130 INPUT"GLOBAL";P$:PRINT"ENTER KEYWORDS:":SYS2521
  6. 140 CLOSE1:IFPEEK(834)<>122ORPEEK(835)<>14ORPEEK(836)<>24ORPEEK(837)<>58GOTO250
  7. 160 J=838:F$=""
  8. 170 D=PEEK(J):IFD=31ORJ=858GOTO210
  9. 180 IFD<96ANDD>63THEND=128ORD
  10. 190 IFD<32THEND=64ORD
  11. 200 F$=F$+CHR$(D):D=FRE(0):J=J+1:GOTO170
  12. 210 PRINT"<";F$;">":IFP$<>"Y"ANDP$<>"YES"GOTO250
  13. 240 OPEN1,8,3,F$:SYS2609:GOTO140
  14. 250 CLOSE2:END
  15.